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FIGURAS GEOMÉTRICAS 


Forma geométrica das mais fascinantes, o cone é 
responsável pela geração de toda uma família de 
curvas. Neste artigo apresentamos alguns progra- 
mas para explorar as propriedades dessa figura e 
DO RUAS SECOM sao mui onda 801 


CRIE SPRITES COM VPEEK E VPOKE 


Organização da memória de vídeo. Onde são ar- 
mazenados os padrões dos sprites. Como o com- 
putador movimenta sprites. Um banco de sprites 
em linhas DATA. Um programa que ajuda a en- 
tender a organização dos sprites na VRAM. 808 





BLOCOS GRÁFICOS EM AVALANCHE 


A procura do lanche roubado leva nosso indigita- 
do herói a enfrentar novos obstáculos. Agora, ele 
precisa de uma montanha para escalar. Junte as 
porções do videogame. Defina a forma dos blocos 
gráficos. Mas procure não gravar bytes a mais. 816 
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PLANO DA OBRA 
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FIGURAS 


GEOMÉTRICAS 


Forma geométrica das mais fascinantes, 
o cone é responsável pela 

geração de toda uma família de curvas. 
Eis aqui alguns programas para 
explorar as propriedades dessa figura. 


Criadores da geometria, os gregos an- 
tigos consideravam as curvas — pelas 
quais eram fascinados — tanto mais im- 
portantes quanto mais simples e elegan- 
tes eles fossem. Assim, quando se des- 
cobriu que toda uma família de curvas 
— conhecidas como seções cônicas — 
poderia ser obtida simplesmente cortan- 
do-se um cone de diferentes maneiras, 
pareceu óbvio que esses sólidos geomé- 
tricos deviam ter uma significação espe- 
cial. Realmente, dependendo de como 
se secciona o cone, pode-se obter um cir- 
culo, uma elipse, uma parábola ou uma 
hpeérbole. 

Na verdade, o traço marcante dessas 
curvas está no fato de que elas não são 
meras abstrações matematicas, mas apa- 
recem a todo momento no nosso coti- 
diano e proporcionam uma descrição 
exata de fenômenos físicos. 

Existem, certamente, outras curvas 
simples encontradas na natureza que 
não são seções de um cone. A forma 
produzida por uma corda ou corrente 
presa por dois pontos nas extremidades 
é um exemplo. Conhecida como catená- 


ria, essa curva difere ligeiramente da pa- 
rábola. Entretanto, as equações que ser- 
vem para descrever as duas formas são 
completamente distintas. As seções cô- 
nicas aparecem frequentemente relacio- 
nadas ao modo como as coisas se mo- 
vem (um objeto lançado sobre a super- 
ficie da Terra, por exemplo, executa 
uma curva parabólica). Assim, elas são 
necessárias para uma simulação convin- 
cente e exata desses movimentos. 

Algumas curvas também são úteis pa- 
ra definir objetos tridimensionais. Os 
cortes de um cone têm obviamente duas 
dimensões, mas podem ser rodados em 
seus eixos para produzir uma forma de 
três dimensões. Assim, o circulo se 
transforma em uma esfera, com um sem 
numero de aplicações; a parábola, em 
um parabolóide, usado em objetos co- 
mo faróis de automóveis, espelhos de te- 
lescópios, fornos solares etc. 

A primeira parte deste artigo descre- 
ve cada curva e como desenhá-la na te- 
la do computador, enquanto a segunda 





E AS SEÇÕES DO CONE 
E — DESENHECÍRCULOS, ELIPSES, 

PARÁBOLAS E HIPÉRBOLES 
ai — ROTAÇÃO DE CURVAS 
E! APLICAÇÕES PRÁTICAS 


mostra como usá-la em simulações co- 
mo a trajetória de um balde (ou outro 
objeto) pendurado em uma escada que 
desliza e acaba caindo (uma elipse) ou 
a curva descrita por uma pessoa cruzan- 
do um rio a nado (uma parábola). 
Veremos também como desenhar be- 
las formas usando a hipérbole e a elipse. 
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COMO CORTAR O CONE 


As quatro curvas obtidas quando se 
seccionar um cone — o circulo, a elip- 
se, a parábola e a hipérbole — diferem 
totalmente entre si. Foram estudadas em 
detalhe pela primeira vez pelo grego 
Apolônio, por volta de 200 a.€. 

O ponto inicial é: se um par de retas 
que se cruzam — como um X — roda 
em torno de um eixo de simetria, gera- 
se um duplo cone (veja os desenhos des- 
tas páginas) que pode ser cortado por 
um plano de quatro maneiras. 

Se um corte é feito em ângulo reto ao 
eixo de simetria, a seção resultante é um 
círculo. 

Um corte feito em um ângulo entre 
90º e metade do ângulo formado pelas 
linhas que geraram o cone (conhecido 
como ângulo semivertical do cone) pro- 
duz uma elipse. 

Um plano que faz com o eixo um ân- 
gulo igual ao ângulo semivertical nos dá 
uma parábola. Já um plano que faz com 
o eixo um ângulo menor que o semiver- 
tical cria uma seção em duas partes cha- 
mada hipérbole, Ela tem duas partes 
porque nosso plano corta tanto o cone 
de cima como o de baixo (lembre-se de 
que o duplo cone foi gerado pela rota- 
ção de um X). 

Existem dois casos especiais. Se, por 
exemplo, o corte é feito por um plano 
que passa pelo eixo, isto é, se os cones 
são divididos verticalmente “pela meta- 
de, serão obtidas duas linhas retas — 
aquelas que foram usadas para gerar a 
figura. Elas configuram na realidade um 
caso especial de hipérbole. Por outro la- 
do, se um plano cortar os cones pelo vér- 
tice, fazendo um ângulo reto com o ei- 
xo vertical, tudo o que se tem é um pon- 
to, que é um círculo de raio zero. 

"Os desenhos destas páginas devem 
deixar claro como tais formas são obti- 
das. Se quiser, você também pode cor- 
tar cones feitos de material de fácil ma- 
nipulação — como isopor ou papel — 
e verificar o que obtém. Um cone du- 
plo só será necessário se você quiser ter 
uma hipérbole de verdade, visto que ela 
sempre tem duas partes. 


“CURVAS E MAIS CURVAS 





As curvas são geradas por equações 
simples, algumas das quais já foram 
abordadas em outros programas. Elas 
serão sempre desenhadas na tela de alta 
resolução do seu micro. Vejamos agora 
algumas delas. Comecemos pelo circu- 
lo, uma das curvas mais simples. 





O CÍRCULO 





A equação de um circulo é dada por: 


X = A*COS teta 
Y=A*SEN teta 


onde A éoraio. X e Y, um ponto qual- 
quer da circunferência, e teta, o ângulc 
formado com uma reta prefixada, em 
geral o eixo X. 

O primeiro programa desenha um 
circulo de raio À no meio da tela: 


LO CLS 

15 LET a=70 

25 LET x=a: LET vy=0 

30 PLOT 127/+x,70+y 

40 FOR t=0 TO 24PI STEP .2 

50 LET x-a*COS t: LET y=a*SIN 


60 DRAW x-PEEK 236/7+127,y- 
PEER 23678+/0 
70 NEXT 1 


10 PMODE 4d: 
15 A=60 

20 C=ATN(1)/45 

30 LINE-(127+4,95), PRESET 

40 FOR TH=0 TO 360 STEP 10 

50 X=AXCOS(TH*C) : Y=A*SIN(TH*C) 
60 LINE -(127+X,95+Y), PSET 


70 NEXT TH 
Bo GOTO 80 


al 


10 COLOR 15,4,4:SCREENZ 


PCLS:SCREEN 1,1 


15 A=60 
20 C=ATN(1)/45 
30 LINE -(12/+4A,95) ,4 


40 FOR TH=0 TO 360 STEP 10 

50 X=A*COS(TH*C) :YTAMSIN(THAC) 
GO LINE -(127+X,9b+7),15 

0 NEXT 

B0 GOTO 80 


Daio 


JO HOME HGH HCOLOR= 3 
15 A = 60 

20 E = ATN (1) / 45 

30 HPLOT 127 + A,95 


40 FOR TH = O TO gJ60 STEPIO 


50 X = A * COS (TH XX C)rE =aa 
* SAN (IH * 0) 

60 HPLOT TO 127 + K,;952. TM 
O NEXT 
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O laço FOR...NEXT das linhas 40 a 
70 é a parte do programa que desenha 
o círculo, traçando repetidamente seg- 
mentos de reta a intervalos de 10º (ou 
0.2 radianos). O raio do círculo é defi- 
nido na linha 15. 


A ELIPSE F 


A equação da elipse é muito pareci- 1 
da com a do círculo. Para uma elipse 
com o eixo maior 2A e o menor 2B, a 
posição do ponto da periferia é: 


AX =A*COS teta 
Y = B*SEN teta 


A forma da elipse — ou seja, suas 
proporções de caracteristicas mais ou 
menos achatadas — é determinada por 
A e B. Altere estas linhas: 


16 LET b=40 
50 LET x=aNcos Lt: 
i 


b*SIN 


LET y< 



































O círculo 








Co SSIS E E O A 


A PARÁBOLA O valor de T pode variar de infinito 
a nh a menos infinito; grande parte de uma 
parábola, contudo, pode ser vista como 
Tvariando entre +2 e — 2. No progra- 
ma, esses valores têm que ser postos em 
escala por um fator M para que a curva 
caiba na tela do micro. 


B=30 
XK=A*COS (TH*C) : Y=BXSIN(TH*C) 


O tamanho da parábola depende do 
valor de uma variável, conhecida por T. 
As equações são: 


B=30 A=T 
X=A*COS (TH*XC) :Y=BASIN(TH*C) Y=2*T 


50 
A * COS (TH* C):Y = B 
IH o * C) 


A elipse 








10 CLS 

15 LET m=20 

25 LET x=d4*m: LET v=-4*m 

30 PLOT 127+x,8B0+y 

40 FOR t=-2 TO 2 STEP .05 
50 LET x=m*t*t: LET y=2*m*L 
60 DRAW x-PEEK 23677+127,y- 
PEEK 23678+80 

70 NEXT E 

10 PMODE 4: PCLS:SCREEN 1,1 
15 M=23 

20 C=ATN(1)/45 

30 LINE-(127+M*4,95-4*M), PRESET 
4O FOR T=-2 TO 2 STEP .05 
50 X=M*Tº2:Y=2*M*T 

60 LINE-(127+X,95+Y), PSET 
70 NEXT T 

BO GOTO B0 


10 COLOR15,4,4: SCREENZ 

15 M=23 

20 C=ATN(1)/45 

30 LINE -(12/+M*4,95-M*4),4 
40 FOR T=-2 TO 2 STEP .05 
50 X=MATO2:Y=22MAT 

60 LINE -(12/7+X,95+Y7), 15 

O NEXT 

BO GOTO 80 


DI 


10 HOME 
15 M = 20 
20 € = ATN (1) / dá 

[30 HPLOT 127 + M* 4,95 - 4 * 







HOGRZ HCOLOB= 3 


M 

£O EOMT= =270 2 :5TEP .05 
OX mMMOTPoezMkr=2eME A 
60 HPLOT TO 127 + H,95 + | 
PO NEXT 


A HIPERBOLE 





A equação da hipérbole é: 


X = A/COS teta 
Y=B*TG teta 


Metade da hipérbole é traçada en- 
quanto teta varia de -90º a 90º e a ou- 
tra metade, enquanto teta varia de 90º 
a 270º. Teoricamente, é possível usar 
apenas um laço no programa para va- 
riar teta de -90 a + 270, mas há proble- 
mas nos pontos -90, 90 e 270, onde ocor- 
re uma divisão por zero. Mesmo com 
valores próximos destes, grandes núme- 
ros são envolvidos. Assim, O nosso pro- 
grama recorre a dois laços. Novamen- 
te, o fator M vem estabelecer a escala 
mais adequada para a figura: 


10 CLS 

15 LET m=30 

25 LET x=m/COS -l1: 

TAN -1 

30 PLOT 12/+x,/5+y 
40 FOR t=-l TO 1 STEP .l 

50 LET x=m/COS L: LET y=m*TAN 
t 

60 DRAW 127/+x-PEEKR 2367%4,/5+y 

-PEEK 236/7/B 


LET y=m* 





70 NEXT t 

75 LET x=m/COS (PT-1): LET y= 
mATAN (PI-1) 

BO PLOT 127+x,75+y 

90 FOR t=PI-1 TO PI+] STEP .l 
100 LET x=m/COS Lt: LET y=m*TAN 
t 

110 DRAW 127+x-PEEK 236//,7/b+y 
“PEER 23J6/6B 


120 NEXT + 


10 PMODE 4:PCLS:SCREEN 1,1 

15 M=50 

20 C=ATN(1)/45 

30 LINE -(227,8), PRESET 

40 FOR TH=-60 TO 60 STEP 5 

50 X=M/COS (TH*C) : Y=M*TAN(TH*C) 
60 LINE -(127+X,95+Y7), PSET 

70 NEXT TH 

BO LINE-(26,8), PRESET 

90 FOR TH=120 TO 240 STEP 5 
100 X=M/COS (TH*C) : Y=M*TAN(TH*C) 
110 LINE-(127+X,95+Y), PSET 
120 NEXT TH 

130 GoTo 130 








| Figura 2 














o 


LO COLOR15,4,4: SCREENZ 

15 M=50 

20 C=ATN(1)/45 

30 LINE -(227,8),4 

40 FOR TH=-60 TO 60 STEP 5 

50 X=M/COS(TH*C) :Y=MATAN(TH*C) 
6O LINE -P1l27+H,953+7),15 

70 NEXT 

B0 LINE -(26,8),4 

90 FOR TH=120 TO 240 STEP 5 
100 X=M/COS (TH*C) : Y=MATAN(THA*AC) 
110 LINE -(127+X,95+7),15 

120 NEXT 

130 GOTO 130 


Leito] 


LO HOME HGR2 HCOLOR= 3 

15 H = 50 

20 €C = ATN (1) / 458 

30  HPLOT 227,8 

40 FOR TH = - 60 TO 60 STEP 5 


50 X=M/ COS 4(THY*TC):T=M 
* TAN (TH * €) 
60 HPLOT TO 227 + H,.95 + JF 


70 NEXT 
BO HPLOT 26,8 
90 FOR TH = 120 TO 240 STEP 5 


Eis aqui a rotina de rotação para ca- 
da computador: 


100 x=M/ cos «tr c:y=m Em 


* JAN (UHF) 
JO HPLOT TO I2) + X,95 + 3 
120 


NEXT 


COMO RODAR AS CURVAS 





Os programas anteriores desenharam 
as curvas na sua forma mais simples, so- 
bre um eixo horizontal e outro vertical. 
No entanto, essa posição nem sempre é 
conveniente; além disso, pode-se querer 
desenhar as curvas em outra posição. A 
figura | mostra o que acontece com um 
ponto na periferia de uma elipse quan- 
do esta sofre uma rotação de um ângu- 
lo de AN graus. O ponto P move-se da 
posição X,Y para uma nova posição 
XT, YT e as novas coordenadas são da- 
das por: 


XT =X*COS AN-Y*SEN AN 
YT=X*"SEN AN + Y*COS AN 





1000 LET xt=x*COS (an*P1I/180)-wy 
*SIN (an*PI/180) 

1010 LET yt=x*SIN (an*P1/180)+y 
*Cos (an*PI/180) 

1020 RETURN 


Ti ria 


1000 XT=X*COS (AN*C) -Y*SIN(AN*C) 
1010 YT=Y*COS (AN*C) +X*SIN(AN*C) 
1020 RETURN 


Algumas alterações deverão ser fei- 
tas nos programas que desenham as cur- 
vas para que eles possam usar a sub- 
rotina de rotação. Em primeiro lugar, 
o ângulo de rotação tem que ser especi- 
ficado (linha 17); a posição inicial deve 
ser rodada e as linhas, desenhadas nas 
novas coordenadas XT e YT. A linha 17 
pode ser alterada para permitir a entra- 
da do valor do ângulo para rotação por 
meio de uma instrução INPUT. E im- 
portante lembrar que essa instrução de- 
ve ser colocada antes da seleção do mo- 
do gráfico. 

Vejamos agora quais são as mudan- 
ças que precisamos realizar no progra- 
ma BASIC que desenha a elipse. Não se 
esqueça de incorporar a rotina de rota- 
ção a cada programa. 

17 LET an=60 

28 GOSUB 1000 

30 PLOT 127+xt,70+yt 

55 GOSUB 1000 

60 DRAW xt-PEEK 23677+127,yt- 


PEEK 23678+70 
BO STOP 


17 AN=60 
25 X=A:GOSUB 1000 
30 LINE-(127+XT,95+YT), PRESET 


55 GOSUB 1000 
60 LINE-(127+XT,95+YT), PSET 


Io 


17 AN=60 

25 X=hA:GOSUB 1000 

30 LINE -(12/+XT,95+YT),4 
55 GOSUB 1000 

60 LINE -(XT+127,Y7+95),15 


Cato 


17 AN = 60 

5 K = À: GOSUB 1000 

30 HPLOT 127 + XT,95 + YT 

55  GOSUB 1000 

60 HPLOT TO 127 + XT,95 + TYT 
BO END 


NOR A 007 








Para fazer a rotação da parábola ):GOSUB 1000 60 LINE -(XT+127,YT+95),15 : 
deve-se empregar a mesma sub-rotina. 80 DRAW"BM"+STRS (INT (127+X7))+” 75 X=M/COS(135%C) “Y=MATAN (17540 : 
Adicione-a ao programa principal e fa- +" +STRS$(INT(95+YT)) | ) :GOSUB 1000 | | : 
ça as seguintes alterações: 90 FOR TH=135 TO 240 STEP 5 BO LINE -(127+XY,95+YT),4 é 

105 GOSUB 1000 90 FOR TH=135 TO 240 STEP 5 É 
Es 110 LINE -(127+XT,95+YT), PSET tos GOSUB 1000 | 

10 LINE -(XT+127,YT+95),15 

É ; ” , E 
17 LET an=60 | | : 
fer io NS] e 
30 PLOT 127+xt, BO+yt 17 AN=60 E 1 
40 FOR t=-1.75 TO 1.75 STEP 26 X=M/COS(-60*C) : Y=MATAN(-60HC 15 M = 35 . 
.05 ) :GOSUB 1000 17 AN = 60 | 
55 GOSUB 1000 30 LINE -(127+4XT,95+YT),4 25 4X “MM / COB (- 60 * G)rlr 
60 DRAW 127+xt-PEEK 23677,8B0+ 55 GOSUB 1000 M* TAN (- 60 * €): GOSUB 10 ! 
yt-PEEK 23678 pass | 
80 STOP 
17 AN=60 


20 C=ATN(1)/45 

25 X=M*4:Y=-MX4: GOSUB 1000 

30 LINE -(127+XT,95+YT), PRESET 
55 GOSUB 1000 

60 LINE -(127+XT,95+YT), PSET 


o 


17 AN=60 

25 X=M*4:Y=-M*4: GOSUB 1000 
30 LINE -(127+XKT,95+YT) 4 
55 GOSUB 1000 

60 LINE -(XT+L27,YT+95),15 


[bt] 


15 M = 17 

17 AN = 60 

20 E = AIN (1) / 48 

25 X=M* 4:17 = -M* 4d: GOSU 
B 1000 


30 HPLOT 127 + XT,95 + YT 

55 GOSUB 1000 

60 HPLOT TO 127 + XT,95 + TT 
BO END 


E, finalmente, as alterações para ro- 
dar a hipérbole: 


17 LET an=60 
Z8 GOSUB 1000 
30 PLOT 127+xt,/5+tyt. 
55 GOSUB 1000 
60 DRAW 127+xt-PEEK 23677,75+ 
vt-PEEK 23678 
76 GOSUB 1000 
| BO PLOT 127+xt,75+yt 
105 GOSUB 1000 
110 DRAW 127+xt-PEEK 23677,75+ 
Yt-PEEK 23678 
130 STOP 


17 AN=60 

25 X=M/COS(-60*C) : Y=M*TAN(-60*C 
) :GOSUB 1000 

30 LINE -(127+XT,95+YT), PRESET 
55 GOSUB 1000 

60 LINE - (XT+127,YT+95), PSET 

75 X=M/COS(135*C) :Y=MXTAN(135*C 
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DO 
30 HPLOT 127 + XT,95 + YT 


55  GOSUB 1000 


60 HPLOT TO 127 + XT,95 + YT 
o A e Mo COS (135 * D):T = HM 
* TAN (135 * C): GOSUK 1000 
BO HPLOT 127 + XT,95 + TT 

90 FOR TH = 135 TO 240 STEP 5 


105 GOSUB 1000 
110 HPLOT TO 12/ + XT,95 + TT 


130 END 











APLICAÇÕES PRÁTICAS 


Todas essas curvas podem ser usadas 
de alguma forma prática. 

O círculo tem tantas aplicações que 
nem todas podem ser listadas. A roda 
é um exemplo óbvio, assim como a bo- 
la também o é para a esfera. As esferas 
(ou formas aproximadas) aparecem com 
frequência na natureza. Os exemplos 
vão desde laranjas até planetas. Mas elas 
raramente são perfeitas, devido à ação 
da gravidade, ventos ou outras forças. 
Um planeta rodando ao redor de uma 
estrela poderia ter uma órbita circular, 
apesar de ser mais provável que ela fos- 
se elíptica. | 

As aplicações para o círculo são tão 
amplas como a determinação do menor 
custo de transporte para um produto 
que pode ser comprado em dois lugares 
diferentes. Suponhamos, por exemplo, 
que você queira comprar um modelo de 
computador vendido pelas firmas A e B, 
que estão distante 300 km entre si. Su- 
ponhamos ainda que a firma À envie o 
computador por um serviço especial de 
entrega a um custo de um cruzado por 
km, enquanto a firma B o faça em seu 
próprio caminhão, ao custo de cinquen- 
ta centavos por km. E muito simples 
marcar num mapa a região em que é 
mais barato comprar de A ou de B. A 
idéia é unir por meio de uma linha to- 
dos os pontos onde os custos são iguais. 
Neste caso, devemos definir os lugares 
em que a distância até B seja o dobro 
da distância até A, 

Um desses pontos fica na linha que 


liga as duas firmas, a 100 km de A e 200 


km de B. Outro ponto fica na mesma 
linha, a 300 km de A, no sentido opos- 
to a B, Se todos esses pontos forem uni- 
dos, teremos um círculo de raio igual a 
200 km, como se vê na figura 2. Se vo- 
cê vive dentro do circulo, é mais barato 
comprar de A; se vive fora, é mais com- 
pensador comprar de B. 

A elipse também tem aplicações prá- 


ticas. É possível, por exemplo, colocar | 


uma elipse em tal posição que sua som- 
bra, projetada sobre uma superfície pla- 
na, assuma a forma de um círculo per- 
feito. Essa propriedade pode ser usada 
em válvulas de dutos circulares, onde 
uma aba elíptica é usada para controlar 
o fluxo de líquidos ou gases. Ao atingir 
determinado ângulo, a aba se encaixa 
perfeitamente no duto, bloqueando o 
fluxo da substância. A parábola descre- 
ve a curva traçada por um projétil. Mas 
certos corpos celestes, como os cometas, 
podem também viajar em órbitas para- 
bólicas em torno do Sol e de outras es- 
trelas. 


PARÁBOLAS E HIPÉRBOLES 

Os programas deste artigo foram 
concebidos de modo a explorar da me- 
lhor maneira a tela do seu micro. Ão 
usar essas formas em programas, o fa- 
tor de escala M deve ser alterado para 
que sejam obtidas curvas do tamanho 

| adequado. 

Ao rodar parábolas e hipérboles, é 
necessário tomar certos cuidados pa- 
ra que os pontos das extremidades das 

| curvas não caiam fora da tela, Ássim, 
altere o fim do laço FOR...NEXT da li- 
nha 40 do programa da parábola e das 
linhas 40 a 90 do programa da hipér- 
bole. O limite exato deverá ser encon- 
trado pelo método de tentativa e erro. 





Por outro lado, raios de luz e calor 
paralelos ao eixo de uma parábola são 
refletidos de modo a passar pelos focos. 
Isso acontece nas duas direções. Assim, 
um filamento colocado no foco produ- 
zirá um feixe paralelo de luz, como os 
usados em faróis de automóveis. Na ou- 
tra direção, os raios solares podem ser 
concentrados no foco de uma parábo- 
la, produzindo altíssimas temperaturas; 
este é O princípio de funcionamento dos 
fornos solares. 

Na prática, os refletores utilizados 
para tais fins são parabolóides tridimen- 
sionais. Estes também são usados em 
outras aplicações, como antenas para re- 
cepção e transmissão de ondas de rádio, 
acessórios de sistemas de televisão e te- 
lefonia etc. 

Uma característica importante da hi- 
pérbole é — como já foi dito — sua 
constituição em duas partes. Os sistemas 
de radar para navegação valem-se des- 
sa qualidade, funcionando com duas es- 
tações. Uma delas transmite um sinal, 
que é retransmitido imediatamente pe- 
la outra estação. Ao receber os dois si- 
nais, o operador de um navio nas pro- 
ximidades calcula o tempo entre as duas 
emissões. Se o barco se move de manei- 
ra a manter constante o tempo entre as 
chegadas, é porque tem um curso hiper- 
bólico, como é mostrado na figura 3. Se 
o operador também receber sinais de ou- 
tras duas estações e calcular o tempo en- 
tre a chegada dos sinais, terá outra hi- 
pérbole; a interseção das duas dará a po- 
sição do navio, 















Até agora, usamos bastante os co- 
mandos VPEEK e VPOKE para obter 
efeitos gráficos, mas nunca na progra- 
mação de sprites. Para fazer isso, pre- 
cisamos conhecer bem a organização da 
memória de vídeo do MSX, a chamada 
VRAM. A estrutura dessa memória, 
bem como os princípios básicos dos co- 
mandos VPEEK e VPOKE, foi explica- 
da no artigo Os Comandos PEEK e PO- 
KE (página 261). 

A VRAM é uma memória indepen- 
dente, com capacidade de armazenar até 
16 kbytes. Ela é utilizada por um chip 
especial, que se dedica integralmente ao 
controle da tela; o VDP — Video Dis- 
ptay Processor. 

O MSX pode dispor da tela de quatro 
formas: texto em quarenta colunas, tex- 
to em 32 colunas, gráficos em alta reso- 
lução e gráficos em baixa resolução. E 
o VDP que determina o tipo de tela que 
está sendo mostrado no vídeo. Quando 
estamos programando em BASIC, o co- 
mando SCREEN ajusta o VDP para 





VPEEK E VPOKE 


al o 
f 1% 
, 


mostrar o tipo de tela desejado. 

Os diferentes tipos de tela nada mais 
são que maneiras diversas de interpre- 
tar os números que estão na VRAM. Pa- 
ra fazer essa interpretação, o VDP di- 
vide a memória de video em regiões que 
são denominadas tabelas. Cada tabela 
tem sua função. No modo texto de qua- 
renta colunas, por exemplo, existe uma 
tabela de nomes, cuja função consiste 
em armazenar os códigos ASCII das le- 
tras que aparecem no texto. Uma vez 
que coloquemos um código numa certa 
posição da tabela de nomes, o VDP uti- 
liza esse valor a fim de encontrar os 
bytes que determinam o formato da le- 
tra em outra parte da VRAM (na cha- 
mada tabela de padrões). 

Os quatro tipos de tela têm tabelas de 
nomes e tabelas de padrões, que funcio- 
nam de maneira parecida. Para que não 
seja preciso memorizar os endereços ini- 
ciais de cada uma delas na VRAM, em- 
pregamos variáveis do sistema chama- 
das BASE, que descobrem o valor cor- 


Você pode criar e movimentar sprites 
com a ajuda dos versáteis 


comandos VPOKE e VPEEK. Mas, para 


isso, precisa conhecer primeiro a 
organização de memória de vídeo do MSX. 








reto para nós. Esses valores estão con- 
tidos no VDP; em outro artigo apren- 
deremos a modificá-los. 

No modo texto de quarenta colunas 
— SCREEN 1 — não podemos modifi- 
car a cor de letras individuais nem usar 
sprites. Nos outros três tipos de tela exis- 
te uma porção da VRAM, dedicada a 
controlar os efeitos cromáticos, chama- 
da tabela de cores. Essa tabela assume, 
em cada tela, um tamanho e uma posi- 
ção diferentes. 

Neste artigo, mostraremos a organi- 
zação de duas outras tabelas da VRAM, 
existentes nos tipos de tela que permi- 
tem a programação de sprites: a tabela 
de atributos de sprites e a tabela de pa- 
drões de sprites. Mais adiante, tratare- 
mos da organização do VDP. 





UM BANCO DE SPRITES 


Antes de prosseguir no estudo da 
VRAM, convém recordar como o com- 
putador armazena o padrão de um spri- 
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= ORGANIZAÇÃO DA MEMÓRIA 
o  DEVÍDEO 
E ONDE SÃO ARMAZENADOS 


OS PADRÕES DOS SPRITES 


E * COMO O COMPUTADOR 


te. Até agora, quando quisemos definir 
o pradrão de um sprite, usamos um 
cordão para armazenar os bytes corres- 
pondentes a cada linha com oito pon- 
tos do sprite. Se você consultar o artigo 
Crie Sprites no MSX (página 188), verá 
que a ordem de interpretação dos bytes 
tem a seguinte correspondência com o 
padrão de um sprite de 16 x 16 pontos: 


Linha 1: BYTE 1 BYTE 17 
Linha 2: BYTE 2 BYTE 18 
Linha 3: BYTE 3 BYTE 19 
Linha 4: BYTE 4 BYTE 20 


Para entender como os sprites são ar- 
mazenados e movimentados na memó- 
ria de vídeo, precisamos de alguns exem- 
plos desses blocos gráficos. Neste arti- 
go, como de costume, trataremos de 
sprites de 16x 16 pontos, salvo menção 
em contrário. Digite o programa: 


LO CLEAR 200,4.HD000 
20 FOR 1=0 TO 255 


ei | | | | 01 
| | | | 


E —UMBANCO DESPRITES EM 


MOVIMENTA SPRITES 


O UNHAS DATA 
E | CRIESPRITES COM O EDITOR 
DE BLOCOS GRAFICOS 


30 READ AS:POKE 4 HDIOO+I,VAL("E 
Bº+AS) 

40 POKE 4HE100+1,16+15 
50 NEXT 

1000 DATA 00000000 
LOLO DATA 00000000 
1020 DATA 00000000 
1030 DATA 00000000 

1040 DATA 00000000 N 
L050 DATA 00000001 

1060 DATA 00000011 

L070 DATA 00111111 

1080 DATA 11101010 

1090 DATA 01111111 

1100 DATA 00000001 

[410 DATA 00000000 

11720 DATA 00000000 

11340 DATA 00000000 

1140 DATA 00000000 

[140 DATA 00000000 

1160 DATA 00000000 

11720 DATA 00000000 

IYRO DATA 00000000 

1190 DATA DIL10000 

1200 DATA 10100000 

IZ10 DATA 0100000] 

1220 DATA 100000141 

1230 DATA 1171110] 








1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
13/0 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
L610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


10101001 
JL14)31111 

00100000 
10010000 
01001000 
00111100 
00000000 
D0000000 
OVOUUQUO 
00000000 
00000000 
00111100 
00100010 
001400001 
01000001 
01000001 
10400010 
10000000 
11111101 
QO1100140 
00011101) 

00000011 
00000000 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 
00000000 
11110000 
00101000 
00010100 
DÓLOJO10 
01010101 
10111111 
01111000 
10000000 
00000000 
00000000 
00000000 
00000000 
00000000 
DOUVONOL 
00000001 
00000001 
11100001] 
01010001 
00101010 
00100100 
00100000 


1750 
1760 
1770 
1780 
1790 
1800 
LB1IO 
1820 
1830 
1840 
1850 
1860 
L870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
L950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 








DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00101000 
01010100 
11100110 
00000101 
00000110 
00010010 
00000000 
00001001 
00000010 
10000000 
01000100 
00100001 
11111000 
00000100 
00110010 
00000001 
00111111 
01000000 
00111100 
11111000 
00000000 
00001110 
00000011 
00011011 
01101111 
10000111 
10011111 
00110011 
V1100101 
01000101 
01000001 
00000001 
00000001 
0000000] 
00000011 
00111111 
141412111 
00000000 
01111100 
11100110 
11111000 
11111100 
11100100 
11110010 
10011001 
10000100 
10000100 
10000000 
11000000 
11000000 
11000000 


2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
23/70 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 


| 
| 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





11111100 
11111111 

00000111 

00111111 

00000000 
00000001 

00000010 
00000100 
00001000 
00010000 
0011114114 
01111111 
00000000 
01111111 
00100000 
00011000 
00000111 

00000000 
10000000 
10000000 
10000000 
11000000 
11100000 
10110000 
10011000 
10000100 
10000010 
11111111 
10000000 
111111114 
00110010 
01100100 
11110000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00001100 
00011111 
00111111 
011111114 
11111111 
11111111 
00000000 








EE 


| 
| | 











obter os números binários das linhas 





2770 DATA 00000000 3280 DATA 01101101 

2780 DATA 00000000 3290 DATA 01101101 DATA e POKE para colocar os valores 
2790 DATA 00000000 3300 DATA 01101101 correspondentes no topo da memória. 
2800 DATA 00000000 3310 DATA 00101101 A linha 40 cuida das cores dos padrões 
2810 DATA 00000000 3320 DATA 00011101 — preto sobre fundo branco — para que 
2820 DATA 00000000 3330 DATA 00001101 ossamos vê-los através do editor 
2830 DATA 00010000 3340 DATA 00000110 po: had Atraves. Or. 
2840 DATA 00111000 1350 DATA 00000001 Essa utilização do editor de blocos 
2850 DATA 01111100 3360 DATA 00000111 para observar OS padrões criados não € 
2860 DATA 11111100 3370 DATA 00000100 obrigatória. O BASIC aqui apresenta- 
2870 DATA 11111110 3380 DATA 00000100 do foi criado com objetivos didáticos: 
2880 DATA 11111110 3390 DATA 00000011 ele permite compreender a organização 
2890 DATA 11]11111 3400 DATA 11000000 da VRAM com o auxílio do programa 
2900 DATA 11111111 3410 DATA 00010000 do final do artigo. As figuras geradas 
2910 DATA LAAISiAL 3420 DATA 01111000 por ele — barcos, peixes e uma ilha de- 
2920 DATA 00000000 3430 DATA 01100100 sert: tre out — serão utilizadas em 
2930 DATA 00000000 3440 DATA 01101100 pe ii ESTE q | 
2940 DATA 00000000 3450 DATA 01101100 outro artigo para animar um quadro na 
2950 DATA 00000000 3460 DATA 01101100 tela do computador. 

2960 DATA 00000011 3470 DATA 01101000 

2970 DATA 00000111 3480 DATA 01110000 USE O EDITOR DE BLOCOS GRÁFICOS 
2980 DATA 00000110 3490 DATA 01100000 : sá 

2990 DATA 000C0010 3500 DATA 11000000 

3000 DATA 00000111 3510 DATA 00000000 Há dois caminhos para utilizar o edi- 
3010 DATA 00000111 3520 DATA 11000000 tor de blocos gráficos com esse conjun- 
3020 DATA 00000111 3530 DATA 01000000 to de sprites. 0 primeiro é mais indica- 
piráeie DATA 11 : : ? o 3540 DATA 01000000 do para principiantes. Depois de execu- 
a seg rir 3550: DATA 10UUONNV tar e gravar o programa acima em fita, 
3060 DATA 00000000 | grave o banco de sprites por intermédio 
3070 DATA 00000000 Esse programa cria um aaa de spri- do comando: 

3080 DATA 00000000 tes no topo da memória, Os formatos , À "x 

3090 DATA 00000000 das figuras podem ser observados nos PRP, NR PS RARA ARE 
3100 DATA 00000000 números binários contidos nas linhas Carregue então o programa editor de 
3110 DATA 00000000 DATA: basta lembrar que os “1” cor- blocos gráficos do cassete e execute-o. 
3120 DATA 00000000 respondem a pontos “acesos”' eos “0”, Aperte a tecla T e responda L à pergunta 
SO DRE aut dr a pontos “apagados” na tela. Note a or- do computador: “(SJAVE ou (LJOAD?” 
1150 DATA 00000000 dem dos bytes que compõem o padrão Posicione a fita na posição em que gra- 
3160 DATA 00000000 do sprite. Ela é exatamente aquela a que vou o banco de sprites, aperte ENTER 
3170 DATA 11000000 fizemos referência: primeiro os dezesseis e em seguida, pressione O botão 
3180 DATA 01000000 bytes da metade esquerda e depois os da “PLAY” do gravador. 

3190 DATA 10111111 metade direita. O segundo caminho é mais indicado 
3200 DATA 11011100 A linha 10 protege o topo da memó- para aqueles que estão acostumados 
3210 DATA 11100000 ria, onde coloca os padrões. O endere- com o uso do editor: depois de execu- 
lua na peiaa ço usado é o mesmo dos bancos de blo-  taro programa apresentado linhas atrás, 
1240 DATA 00000111 cos criados pelo editor dos artigos Ge- carregue o editor de blocos da fita e 
1250 DATA 00010001 ração de Blocos Gráficos (1 e 2). execute-o também, (O banco de sprites 
1260 DATA 00111101 Os laços FOR... NEXT entre as linhas está na posição correta, só que não po- 
3270 DATA 01001101 20 e 50 usam o comando READ para demos vê-lo. E possível, contudo, recu- 
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perar os padrões com auxílio da tecla 
R.) As posições ocupadas pelos blocos 
vão de 0 a 31. 

Os blocos de 8 x 8 pontos que com- 
põem os sprites estão ordenados de 
acordo com as exigências do VDP. 


SPRITES NA VRAM 


Nos tipos de tela que permitem o uso 
de sprites, certas porções da VRAM são 
reservadas para controlar sua exibição. 
Para exemplificar, recorreremos à tela 
de 32 colunas. 

O MSX só permite a exibição de 32 
sprites ao mesmo tempo. Cada um des- 
ses sprites tem suas características arma- 
zenadas numa tabela de atributos de 
sprites. São quatro os atributos de um 
sprite: suas coordenadas X e Y, seu no- 
me e sua cor. Dessa forma, cada sprite 
necessita de quatro bytes para seus atri- 
butos, e a tabela de atributos terá um 
comprimento de 128 bytes. 

A prioridade de um sprite é determi- 
nada pela sua posição na tabela de atri- 
butos. Terão prioridade os sprites que 
ocuparem as primeiras posições na ta- 
bela; ou seja, se dois sprites estiverem 
na mesma posição, será mostrado aque- 
le que aparecer primeiro na tabela. As 
coordenadas X e Y determinam o lugar 
do sprite na tela. Elas correspondem ao 
canto superior esquerdo do sprite. Seus 
valores devem permanecer entre O e 255. 
Quando Y é maior que 191, o sprite de- 
saparece na borda inferior da tela. Se Y 
for 208, todos os sprites com priorida- 
de inferior desaparecerão; e, se for 209, 
o sprite em questão desaparecerá. 

E importante prestar atenção aos li- 
mites impostos à coordenada X. Quan- 
do utilizamos a instrução PUT SPRITE, 
a coordenada X pode ter valores nega- 
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NR Eno ata, E AS NI a 


tivos. Contudo, se tentarmos colocar em 
uma posição da VRAM um valor fora 
da faixa que vai de O a 255, o computa- 
dor emitirá uma mensagem de erro. 

Infelizmente, um sprite só pode ter 
uma cor, Esta corresponderá aos “pon- 
tos acesos” do padrão, ou à cor de fren- 
te, que é determinada pelos quatro bits 
menos significativos do byte de cor, na 
tabela de atributos. Os códigos das co- 
res são aqueles que você já conhece. O 
bit 7 dessa posição controla os valores 
negativos de X, quando utilizados em 
uma instrução PUT SPRITE, ou seja, 
ele será “aceso” se X estiver entre O e 
— 32. Essas coordenadas negativas per- 
mitem que o sprite desapareça no canto 
esquerdo da tela, podendo reaparecer no 
direito. 

O nome do sprite indica ao VDP on- 
de o padrão do sprite pode ser encon- 
trado na tabela de padrões de sprites. 

O endereço inicial da tabela de atri- 
butos de sprites está em BASE(8) na te- 
la de 32 colunas; em BASE(13) na tela 
de alta resolução; e em BASE(18) na tela 
multicolor. 

O MSX permite que criemos até 64 
sprites de 16 x 16 pontos, embora só 32 
possam aparecer na tela ao mesmo tem- 
po. Os padrões desses sprites ficam 
guardados na tabela de padrões. Como 
cada sprite precisa de 32 bytes para de- 
finir seu padrão, a tabela tem 2048 bytes 
de comprimento. Os padrões definidos 
pelo BASIC SPRITES(N) são colocados 
em posições diferentes dessa tabela, con- 
forme o valor de N. O VDP se baseia 
no nome do sprite que está na tabela de 
atributos para calcular a posição em que 
seu formato se encontra na tabela de 
padrões. 

Cada sprite de 16 x 16 pontos neces- 
sita, ao ser programado, de 32 bytes. Se 
preferirmos trabalhar com sprites pe- 
quenos, com 8 x 8 pontos, cada um de- 





les precisará de apenas oito bytes para 
armazenar seu padrão. Dessa forma, co- 
mo a tabela de padrões de sprites tem 
2048 bytes de comprimento, podemos 
criar até 256 sprites pequenos e até 64 
sprites grandes. 

O endereço inicial da tabela de pa- 
drões de sprites fica em BASE(9) na te- 
la de 32 colunas; em BASE(14) na tela 
de alta resolução; e em BASF(19) na tela 
multicolor. 

Quando seu micro padrão M5A es- 
tiver ligado em um modo gráfico que 
permita a exibição de sprites, o VDP 
procurará na tabela de atributos de spri- 
tes os dados necessários à exibição dos 
32 sprites ali definidos. De um certo mo- 
do, podemos dizer que o VDP esta sem- 
pre mostrando os 32 sprites na tela; nem 
sempre, contudo, vemos todos os spri- 
tes — seja porque o valor da coordena- 
da Y está escondendo o sprite, seja por- 
que não há nenhum padrão definido na 
tabela de padrões e todos os pontos dos 
sprites estão apagados. 





UM PROGRAMA DIDÁTICO 


Para que funcione o programa a se- 
guir — organizado, como o anterior, 
com propósitos didáticos —, é necessá- 
Ra a presença de um banco de sprites no 
topo da memória. Portanto, antes de 
digitá-lo, execute o programa anterior, 
apague-o com NEW e só então digite e 
execute a nova listagem. 

5 CLEAR 200,4HDO0O0 

10 SCREEN 1,2:KEY OFF 

20 COLOR 1,7,7:CLS 

30 Z5="00000000" :N=0:W=0 

40 A=BASE (8) :GOSUB 3000 

50 VPOKE BASE (6)+4,16+9 

55 VPOKE BASE (6)+31,12*16+12 

60 X=VPEEK (A+4*N+1) : Y=VPEEK (A+4 
*N) : C=VPEEK (A+4*N+3) :NX=VPEEK (A 
+N*4+2) : P=BASE (9) +B*NX 








“e 


Tue” 
RAS 


70 GOSUB 1000:GOSUB 2000 
BO KS=INKEYS:IF K$="" THEN 80 


90 IF K5$="N” AND N<31l THEN N=N+ 
1:G0TOo 60 

100 IF K5="B”“ AND N>0 THEN N=N- 
1:G0T0O60 

110 IF K$="C” THEN C=(C+1)MODI6 
“VPOKE At4*N+3,C:GOTO 60 


120 IF KS=CHAS (28) AND X<247 TH 
EN X=X+B:VPOKE A+4*N+1,X:GOTO 6 
O 

130 IF KS=CHAS (29) AND 
X=KX-B:VPOKE A+4*N+HIL,X 
140 TE K5=CHRS(3]) AND 
EN Y=Y+8:-VPOKE A+4*N,Y:GOTO 60 
150 1F KS=CHRS (30) AND Y>7 THEN 
Y=Y-B:VPOKE A+4*N,Y:GOTO 60 
160 IF KS="I." THEN VPOKE AkH4*N, 
160:G0To 60 
170 IF KS="A” 
209:GOTO 60 
180 IFKS=CHRS(27) THEN W=NOT W: 

GOTO 60 

190 TE K5="W" AND NX<252THEN NX 

=NX+4 :«VPOKE A+4*N+2,NX:GOTO 60 
200 IF K5="Q" AND NX>3 THEN NX= 

NX-4:VPOKE A+4*N+2,NX:GOTO 60 
210 GoToO BO 

1000 FOR 1I=0 TO 9 

1010 LOCATE 0,1+13 

1020 PRINT RIGHTS (STARS (P+1),5); 
" "-BRIGHTS (Z2Z5+BINS (VPEEK (P+I)), 
8); 

1030 NEXT I:IF W=-1 THEN 1090 
1040 FOR 1=10 TO 31 

1050 LOCATE 14,1-9 

1060 PRINT P+I; RIGHTS (Z3+BINS (V 
PEEK (P+1)),8): 

1070 NEXT I 

1080 RETURN 

1090 FOR I=10 TO 31 

1100 LOCATE 14,1-9 

1110 PRINT STRING3 (7,32) 
(Z5+BINS (VPEEK (P+1)),8): 
1120 IF 1=30 THEN I=I+1:GOTO 10 
50 
1130 
2000 
2010 
2020 
2030 


X>* THEN 
“GOTO 60 
Y<247 TH 


THEN VPOKE A+4*N, 


;RIGHTS 


NEXT I:RETURN 
LOCATE 3,1 
PRINT "SPRITE";N; 


LOCATE 1,3 
PRINT A+4*N;VPEEK (A+4*N) ;T 





AB(12);"Y* 
2040 LOCATE 1,4 
2050 PRINT A+4*N+1] ;VPEEK (A+4*N+ 
1) ;TAB(12);"X" 
2060 LOCATE 1,5 
2070 PRINT A+4*N+2;VPEEK (A+4*N+ 
2) 
2080 LOCATE 1,6 
2090 PRINT A+4*N+3;" 
EK (A+4*N+3)) 
2100 LOCATE 4,8 
2110 PRINT "BASE(B)"; 
2120 LOCATE 4,9 
2130 PRINT BASE(B) 
2140 LOCATE 4,10 
2150 PRINT "BASE(9)"; 
2160 LOCATE 4,11 
2170 PRINT BASE(9) 
2180 FOR I=0 TO 12 
2190 VPOKE BASE (5)+1*3242,255 
2200 VPOKE BASE (5)+1432+15,255 
2210 NEXT 
2220 FOR 1=3 TO 14 
2230 VPOKE BASE (5)+1,255 
2240 VPOKE BASE (5) +1+32*12,255 
2250 NEXT: RETURN 
3000 FOR 1=0 TO 255 
3010 VPOKE BASE (9)+I,PEEK (&HDIO 
0+1) 
3020 NEXT: RETURN 

Ao ser executado, O programa mos- 
tra, no canto superior esquerdo da tela, 
cercado por uma moldura verde, um 
quadro onde se lê “SPRITE O''. Esse 
quadro é uma imagem da tabela de atri- 
butos de sprites. Nele são exibidos o en- 
dereço e o conteúdo das quatro posições 
da VRAM que correspondem ao primei- 
ro sprite da tabela — o sprite O. Quan- 
to menor o número do sprite, maior se- 
rá sua prioridade, o que dá ao sprite ze- 
ro prioridade absoluta. Para que o lei- 
tor se localize na VRAM, os endereços 
iniciais da tabela de atributos de sprites 
— BASE(8) — e da tabela de padrões 
de sprites — BASE(9) — também são 
mostrados no quadro. 

Como já dissemos, o primeiro byte 
corresponde à coordenada Y. Se olhar- 
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mos a tela, entenderemos por que o spri- 
te 0 — o avião — não está aparecendo: 
a sua coordenada Y é maior que 191. 
Para fazê-lo aparecer, basta pressionar 
L. Feito isso, surge instantaneamente na 
tela; se observarmos novamente o qua- 
dro de moldura verde, vamos entender 
por quê: a coordenada Y do sprite O mu- 
dou para 160, 

O sprite pode ser movimentado com 
o auxílio das teclas do cursor. Note co- 
mo as coordenadas vão se modificando 
com o movimento do sprite — a coor- 
denada X é o segundo byte do quadro. 

O terceiro byte mostrado no interior 
da moldura verde corresponde ao “'no- 
me” do sprite. Esse valor orienta o VDP 
na busca do padrão do sprite dentro da 
tabela de padrões. 

O valor do nome, multiplicado por 
oito e somado ao endereço inicial da ta- 
bela de padrões — BASE(9) —, fornece 

o endereço do primeiro dos 32 bytes cor- 
respondentes ao padrão do sprite. São 
exatamente estes 32 bytes que estão sen- 
do mostrados no restante da tela. Ali te- 
mos uma imagem da porção da VRAM 
que contém o padrão do sprite. Os en- 
dereços dos bytes estão em decimal, e o 
seu conteúdo, em binário. Veja como os 
“zeros” e os “uns'' desenham exata- 
mente o perfil do avião. Confira tam- 
bém o endereço inicial, multiplicando o 
nome por oito e somando o resultado ao 
conteúdo de BASE(9). 

Voltando ao quadro de moldura ver- 
de, resta o quarto byte, que correspon- 
de à cor do sprite, em hexadecimal. Po- 
demos mudar instantaneamente a cor do 
sprite pressionando a tecla C. Ligue o 
sprite 0, com a tecla L, movimente-o 
com as setas e veja como sua cor muda 
com a tecla C. Observe atentamente o 
conteúdo dos bytes da tabela de atribu- 
tos enquanto a cor e a posição do sprite 
vão sendo modificadas. 
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Para ver O próximo sprite na ordem 
de prioridade, aperte a tecla N. Os qua- 
tro bytes seguintes da tabela de atribu- 
tos de sprites aparecerão dentro da mol- 
dura verde e os 32 bytes corresponden- 
tes ao desenho do sprite, junto com seus 
endereços na tabela de padrões de spri- 
tes, aparecerão no resto da tela. A tecla 
L faz o sprite aparecer, e a tecla A o apa- 
ga da tela, colocando 209 no byte da 
coordenada Y. 

Podemos então percorrer a tabela de 
atributos de sprites pressionando repe- 
tidas vezes a tecla N. A região de inte- 
resse dentro da tabela de padrões de 
sprites também é atualizada. Podemos 
ligar, movimentar e mudar as cores dos 
sprites. Depois de usar a tecla N 31 ve- 
zes, chegaremos ao fim da tabela de atri- 
butos. Para voltar, tomando a direção 
dos sprites com maior prioridade (ou 
menor número), basta pressionar a te- 
cla B, que tem um efeito inverso ao da 
tecla N. 

Podemos ainda modificar o nome de 
um sprite, alterando a região da tabela 
de padrões a que ele se refere. Isso equi- 
vale a trocar o padrão do sprite. Para 
avançar na tabela de padrões, manten- 
do a prioridade do sprite, use a tecla W. 
Se o sprite em questão estiver na tela, 
veremos seu padrão ser substituido por 
outro desenho. Para retroceder na tabe- 
la, use Q. 

As teclas N e B não modificam ne- 
nhum valor da VRAM,; elas apenas mu- 
dam a região da tabela de atributos de 
sprites mostrada dentro da moldura ver- 
de. Já as teclas Q e W modificam o byte 
do nome do sprite, alterando a figura 
que está sendo mostrada. Por exemplo, 
a tecla W transforma o avião em uma 
nuvem, e a Q coloca um coqueiro no lu- 
gar onde havia um barco. 

Use o programa para entender a or- 
ganização da VRAM. Quando não hou- 
ver mais dúvidas sobre os significados 
de cada endereço, podemos lançar mão 
da tecla ESC. Ela apaga a coluna de en- 
dereços da direita. 

O programa ajuda também a ilustrar 
uma limitação do uso de sprites: não é 
possível inserir em uma mesma linha ho- 
rizontal mais do que quatro sprites. Ten- 
te colocar cinco na mesma linha hori- 
zontal e veja o que acontece. 


COMO FUNCIONA O PROGRAMA 





A linha 5 mantém protegida a área 
onde foi colocado o banco de sprites. A 
10 seleciona a tela de 32 colunas e spri- 
tes grandes. A 20 seleciona as cores da 
tela, além de limpá-la. 

As linhas 30 e 40 estabelecem os va- 


lores iniciais de algumas variáveis. ZS$ 
serve para imprimir números binários, 
N é a posição do sprite na tabela de atri- 
butos — ou seja, sua prioridade —, W 
é um sinalizador que indica se ESC foi 
pressionada, A contém o endereço ini- 
cial da tabela. 

A mesma linha 40 chama a sub-rotina 
3000, que é responsável pela transferên- 
cia do banco de sprites para a tabela de 
padrões. As linhas 50 e 55 modificam as 
cores de dois grupos de caracteres. Os 
caracteres 32 e 255 são usados para de- 
senhar respectivamente as molduras la- 
ranja e verde. 

O laço principal do programa come- 
ça na linha 60. Ali são atualizados os va- 
lores de uma série de variáveis. X é a 
coordenada X do sprite atual; Y é a ou- 
tra coordenada desse sprite; € é a sua 
cor e NX, o seu nome. Todos esses va- 
lores são obtidos na tabela de atributos 
de sprites por meio de comandos 
VPEEK. P é o endereço inicial da por- 
ção da tabela de padrões onde se encon- 
tra o desenho do sprite atual; seu valor 
é calculado somando-se ao endereço ini- 
cial da tabela de padrões o resultado da 
multiplicação de oito pelo nome do spri- 
te atual, 

A seguir, a linha 70 chama duas sub- 
rotinas. À que começa na linha 1000 é 
responsável pela impressão da imagem 
da tabela de padrões na tela. A da linha 
2000, por sua vez, cuida da impressão 
da imagem da tabela de atributos, jun- 
to com sua moldura verde. 

A linha 80 aguarda que pressionemos 
uma tecla e a série de instruções IF... 
THEN que se segue executa as fun- 
ções correspondentes a cada tecla. 

Caso a tecla N tenha sido pressiona- 
da, a linha 90 modificará o sprite atual, 
passando ao sprite seguinte — de menor 
prioridade. Para fazer isso, basta au- 
mentar o valor da variável N em uma 
unidade. A linha 100 cuida da tecla B, 
que volta ao sprite anterior, subtraindo 
uma unidade de N. 

A linha 110 modifica a cor do sprite 
quando pressionamos a tecla U. A no- 
va cor é obtida somando-se uma unida- 
de à variável C. A função MOD16 é uti- 
lizada para manter o código da cor en- 
tre0e 15. C+1 MODI6 é o resto da di- 
visão do código da nova cor por 16. O 
código da nova cor é colocado na tabe- 
la de atributos por VPOKE. 

As linhas 120 e 130 cuidam do movi- 
mento horizontal do sprite. Conforme 
as teclas “seta para a esquerda” e “'se- 
ta para direita” são presssionadas, O va- 
lor da variável X aumenta ou diminui 
oito unidades. Note que as condições 
AND X<247€eX>7 evitam que o spri- 
te ultrapasse os limites da tela. A nova 


coordenada X é colocada na tabela de 
atributos por VPOKE. 

As linhas 140 e 150 cuidam do movi- 
mento vertical de maneira análoga. A li- 
nha 160 “liga” o sprite quando L é pre- 
cionada. Isso é feito com VPOKE, que 
coloca o valor 160 na posição da tabela 
de atributos que corresponde à coorde- 
nada Y. A linha 170 apaga o sprite ao 
toque da tecla A. Para obtermos esse 
efeito, a coordenada Y é modificada pa- 
ra o valor 209, com VPOKE, A linha 
180 detecta a tecla ESC, modificando o 
valor do sinalizador W. 

As linhas 190 e 200 alteram o valor 
do byte que corresponde ao nome do 
sprite atual. A tecla Q diminui o nome 
em quatro unidades e a tecla W o au- 
menta na mesma medida. O nome deve 
ser sempre múltiplo de 4 quando se tra- 
ta de sprites grandes. E que um padrão 
de sprite tem 32 bytes. Como o nome é 
multiplicado por oito para calcular a po- 
sição do padrão na tabela, se o aumen- 
tarmos em quatro unidades, a posição na 
tabela avançará 8 x 4 = 32 unidades, 
passando para o padrão seguinte. Se o 
usuário pressionar qualquer outra tecla 
diferente das mencionadas, a linha 210 
retornará à linha 80. 

A sub-rotina da linha 1000 cuida da 
impressão dos valores contidos na tabela 
de padrões. O laço FOR...NEXT entre 
as linhas 1000 e 1030 imprime os dez pri- 
meiros endereços de interesse no canto 
inferior esquerdo da tela. 

A seguir, conforme o valor de W, são 
impressos os outros 22 endereços. Se W 
for 0, o laço entre as linhas 1040 e 1070 
imprimirá tanto os endereços quanto 
seus conteúdos. Se W for 1, o laço en- 
tre as linhas 1090 e 1130 imprimirá so- 
mente os conteúdos, preenchendo o es- 
paço antes ocupado pelo endereço com 
espaços cor-de-laranja. 

Os endereços são impressos com nú- 
meros decimais; os conteúdos aparecem 
em binário. A função BINS$ calcula o va- 
lor binário; a função RIGHTS, junta- 
mente com a variável Z$, faz com que 
sejam impressos exatamente oito dígitos 
binários por endereço. A função 
STRINGS serve para imprimir sete es- 
paços cor-de-laranja. A sub-rotina da li- 
nha 2000 cuida do quadro com moldu- 
ra verde e do seu conteúdo. Os dois la- 
cos FOR... NEXT das linhas entre 2180 
e 2250 desenham a moldura, que é com- 
posta por caracteres de código ASCII 
255. No restante da rotina, LOCATE é 
utilizada juntamente com PRINT para 
escrever os endereços, conteúdos e suas 
legendas nas posições adequadas. 

Os valores dos quatro bytes do sprin- 
te atual são obtidos na tabela de atribu- 
tos por meio do comando VPEEK. 
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JUNTE AS PORÇÕES DO 


HIV DO DR A E RA ESSA UNA 1 oo) on A 
VIDEOGAME 


BLOCOS GRÁFICOS 
EE DEFINA A FORMA DOS BLOCOS 
o) NÃO GRAVE BYTES A MAIS 





À procura do lanche roubado leva nosso 
indigitado herói a enfrentar 

novos obstáculos. Agora, ele precisa 

de uma montanha para escalar. 

Use blocos gráficos para construí-la. 


Que não seja o Everest, nem tampou- 
co o Aconcágua. Nossa montanha há de 
ser modesta e simples: um mero acidente 
geográfico. Mas que represente um obs- 
táculo a transpor, um desafio a vencer. 
Que Willie, ao vê-la, não resista ao im- 
pulso de escalá-la. 

Para colocá-la na tela, precisamos 
criar uma série de blocos gráficos. Mais 
uma vez, usaremos um programa BA- 
SIC para colocar na memória a tabela 
com os padrões dos blocos. Não sera 
possível (por enquanto) ver os gráficos 
na tela de alta resolução — a montagem 
do cenário é tarefa para uma rotina em 
código que será abordada no próximo 
artigo. Os usuários do Spectrum e do 
MSX, contudo, poderão ter uma idéia 
dos blocos, olhando o padrão dos bits 
nas linhas DATA. Neste estágio, tudo 
o que você deve fazer é digitar e execu- 
tar o programa BASIC e gravar os có- 
digos resultantes em fita. 

A esta altura, temos vários pedaços 
de videogame gravados separadamente. 
Chegou o momento de juntá-los. 

Precisamos, em primeiro lugar, de- 
finir o formato dos blocos gráficos uti- 
lizados no jogo — nuvens, gaivotas, pe- 
dras que rolam, buracos, cobras vene- 
nosas, lanche para um piquenique na 
relva, e o próprio Willie, nosso desven- 
turado herói. Só esses caracteres já da- 
riam muitos bytes, mas, para suavizar 
o processo de animação, todas as figu- 
ras móveis serão desenhadas em várias 
posições, o que aumenta ainda mais OS 
dados. Além disso, empregaremos sal- 
tos de meio caractere e alternaremos os 





s à * Eee a ("BIN"+asS): NEXT n 9015 DATA 00111100 
blocos para dar a impressão de movi 9010 DATA 00011000 9016 DATA 00111100 
mento continuo. 9011 DATA 00111100 9017 DATA 00111100 
5 CLEAR 56999 9012 DATA 00111100 9018 DATA 00111100 
10 FOR n=57000 TO 57327: READ 9013 DATA 00011000 9019 DATA 00111100 


a: LET aS=STRS a: POKE n,VAL 9014 DATA 00111100 9020 DATA 00011000 
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902] 
9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 
9032 
9033 
9034 
9035 
9036 
9037 
9038 
9039 
9040 
9041 
9042 
9043 
9044 
9045 
9046 
9047 
9048 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9062 
9063 
9064 
9065 
9066 
9067 
9068 
9069 
9070 
9071 
9072 
9073 
9074 
9075 
9076 
9977 
9078 
9079 
9080 
9081 
9082 
9083 
9084 
9085 
9086 
9087 
9088 
9089 
9090 
9091 
9092 
9093 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00011000 
00011000 
00011000 
00011000 
00011110 
00000001 
00000011 
00000011 
00000001 
00000000 
00000001 
00000001 
00000001 
10000000 
11000000 
11000000 
10000000 
00000000 
00000000 
00000000 
11100000 
00001110 
00000000 
0000000] 
00000010 
00000100 
00001000 
00000100 
00000000 
00000000 
00000000 
10000000 
01000000 
00100000 
00100000 
00110000 
00000000 
00000000 
00000000 
00000000 
00000000 
00011000 
00111100 
00111100 
00011000 


00000000 


00010000 
00010000 
00011110 
11100000 
00000000 
00001100 
00100100 
01000010 
10000010 
01000011 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000001 
00000011 
00000011 
00000001 
00000000 
00000000 
00000000 
00000000 


9094 
9095 
9096 
9097 
9098 
9099 
9100 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 
9124 
9125 
9126 
9127 
9128 
9129 
9130 
9131 
9132 
9133 
9134 
9135 
9136 
9137 
9138 
9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 
9148 
9149 
9150 
9151 
9152 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9161 
9162 
9163 
9164 
9165 
9166 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


10000000 
11000000 
11000000 
10000000 
00000000 
00000001 
00000001 
00000001 
00001110 
00000000 
00000001] 
00000010 
00000000 
00000000 
00000000 
11100000 
00000000 
00000000 
10000000 
01000000 
00000100 
00001000 
00000100 
00000000 
00000000 
00000000 
00000000 
00000000 
00100000 
00100000 
00110000 
00000000 
00000000 
00000000 
00000000 
00000000 
00011100 
00111110 
01111111 
11111111 
11111111 
11111110 
11111100 
00111000 
00000011 
00000111 
00001111 
00001111 
00001111 
00000111 
00000011 
00000001 
10000000 
11000000 
11100000 
11110000 
11110000 
11110000 
11100000 
11000000 
00000000 
00000000 
00000111 
00011000 
00100000 
01000000 
01000000 
10000000 
00000000 
00000000 
00011111 
10100000 
11000000 


9167 
9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9179 
9180 
9181 
9182 
9183 
9184 
9185 
9186 
9187 
9188 
9189 
9190 
9191 
9192 
9193 
9194 
9195 
9196 
9197 
9198 
9199 
9200 
9201 
9202 
9203 
9204 
9205 
9206 
9207 
9208 
9209 
9210 
9211 
212 
9213 
9214 
9215 
9216 
9217 
9218 
9219 
9220 
9221 
9222 
9223 
9224 
9225 
9226 
9227 
9228 
9229 
9230 
9231 
9232 
9233 
9234 
9235 
9236 
9237 
9238 
9239 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA, 
DATA 
DATA 
DATA 
DATA 


00000000 
00000000 
00000000 
00000000 
00000000 
10000000 
01000000 
01011100 
00100010 
U0000010 
00000010 
10000000 
01000000 
01111100 
00000010 
00000010 
00000001 
00000000 
00000000 
00000000 
00000000 
00000000 
00000100 
00001010 
00010001 
11100000 
00000000 
00000010 
00000100 
00001000 
00000100 
00000100 
00000100 
11111000 
00000000 
00000000 
00000000 
01111000 
10000110 
00000001 
00000001 
00000000 
00000000 
00000000 
00000000 
00011110 
01100001 
10000000 
10000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
10000111 
01111001 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
11100001 
10011110 
00000000 
00000000 
00100010 
00010100 
00001000 
00001000 
00001000 
00001000 











9240 
9241 
9242 
9243 
9244 
9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9253 
9254 
9255 
9256 
9257 
9258 
9259 
9260 
9261 
9262 
9263 
9264 
9265 
9266 
9267 
9268 
9269 
9270 
9271 
9272 
9273 
9274 
9275 
9276 
9277 
9278. 
9279 
9280 
9281 
9282 
9283 
9284 
9285 
9286 
9287 
9288 
9289 
9290 
9291 
9292 
9293 
9294 
9295 
9296 
9297 
9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9308 
9309 
9310 
9311 
9312 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00001000 
00001000 
00011000 
00111100 
00110110 
01111110 
01111110 
00111100 
00011000 
00011000 
00011000 
00011000 
00001100 
00001100 
00000110 
00000110 
00000011 
00000011 
00000110 
00000110 
00001100 
00001100 
00011000 
00011000 
00110000 
00110000 
01100000 
01100000 
11000110 
11000011 
01100110 
01101100 
00111000 
00111000 
10000100 
11010110 
111111114 
11111111 
11111111 
11111111 


111211124 
1322312114 
00000000 
00000001 
00000011] 
00000111 
000111114 
00111111 
01111111 
11111111 
00000000 
00000000 
11111111 
11111111 
00111100 
00111100 
11111111 
111111114 
00000110 
00001000 
01110110 
11111111 
111)4111 
11111111 
01111110 
00111100 
00010000 
00010000 
00010000 
00111000 
00111000 
00111000 
00111000 


9313 
9314 
9315 
9316 
9317 
9318 
9319 
9320 
9321 
9322 
9323 
9324 
9325 
9326 
9327 
9328 
9329 
9330 
9331 
9334 
9333 
9334 
9335 
9336 
9337 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00111000 
00010000 
00111000 
01111100 
00111000 
00111000 
00111000 
00010000 
00010000 
00000000 
00000000 
00000000 
00100000 
01010001 
10001010 
00000100 
00000000 
00000000 
00000000 
00000000 
10000010 
01000101 
00101000 
00010000 
00000000 


Execute o programa e grave a tabela 
resultante com o comando: 
SAVE 'AVAL4' CODE 57000,327 


JUNTE OS PEDAÇOS 





Longos programas em código geral- 
mente têm de ser montados por partes. 
Isso é bom para testar as rotinas indivi- 
dualmente, mas tem a desvantagem de 
deixar para o leitor a tarefa de juntar os 
pedaços do programa. O fato de as ro- 
tinas isoladas serem executadas com su- 
cesso não garante o funcionamento do 
programa completo. 

A maior dificuldade surge quando 
uma das partes apaga outra durante a 
montagem. Se você gravou mais bytes 
do que devia junto com um dos segmen- 
tos do programa, pode acontecer que 
eles apaguem parte do outro segmento 
adjacente na memória. Quando gravar- 
mos os códigos de uma porção do jo- 
go, usando o monitor de INPUT, deve- 
mos informar o endereço inicial e o nu- 
mero exato de bytes a transferir para a 
fita. Se utilizarmos o comando SAVE 
do Spectrum devemos recorrer à sintaxe: 
SAVE 'nome' CODE 


seguida do endereço inicial, uma virgu- 
la e o número de bytes a gravar. 
Quando usamos o Assembler para 
montar os programas listados nos arti- 
gos, o endereço inicial é sempre igual à 
origem: o número que vem após o falso 
mnemônico org. O próprio Assembler 
cuida de começar a rotina nesse endere- 
ço. Nos programas BASIC que criam ta- 
belas de dados na memória a partir de 
linhas DATA e usando POKE, o ende- 
reço inicial da tabela pode ser encontra- 


do na própria listagem: valor inicial da 
variável de controle do laço FOR... 
NEXT responsável pela leitura e trans- 
ferência dos dados para a memória. 

Calcular o número exato de bytes a 
serem gravados já é mais difícil. O en- 
dereço final informado pelo Assembler 
nem sempre é o do final da rotina. Mui- 
tas vezes aquele endereço é apenas o da 
última instrução montada, que, em vá- 
rias listagens, é um rótulo seguido por 
um asterisco, usado para cálculo de sal- 
tos e desvios, e não correspondendo ao 
final do programa. 

Certos programadores gostam, por 
segurança, de gravar alguns bytes a 
mais; eles correm o risco, porém, de 
apagar pedaços de outras rotinas no 
processo de montagem do jogo 
completo. 

A maneira mais segura de juntar as 
partes do programa é ler as rotinas no 
gravador, preenchendo a memória em 
ordem crescente. Porções com endere- 
ços iniciais menores devem ser recupe- 
radas primeiro, sendo seguidas sempre 
das rotinas que ocupam as posições su- 
cessivas. Isso fará os eventuais bytes gra- 
vados em excesso serem apagados pela 
próxima rotina (e não o contrário). 
Além disso, qualquer instrução ret, co- 
locada no final de uma rotina apenas pa- 
ra permitir o seu funcionamento isola- 
do, também será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando adequadamente, o 
programa resultante deve ser gravado 
inteiro, com um outro nome. Seu ende- 
reço inicial será o da primeira rotina li- 
da na fita e o endereço final será o en- 
dereço final da última rotina colocada 
na memória. Qualquer problema pode 
exigir que as rotinas sejam reunidas no- 
vamente. Não se esqueça de gravar as 
listagens Assembly — os programas- 
fonte —, bem como os programas BA- 
SIC que criam as tabelas na memória, 
pois você pode precisar repetir o proces- 
so de montagem. 

Se houver qualquer problema com as 
tabelas de dados, podemos montar as 
rotinas em código na ordem citada, e 
executar cada um dos programas BA- 
SIC. Eles devem ser lidos, um a um, no 
gravador, executados, e, em seguida, 
apagados com NEW. Depois disso, o 
próximo programa criador de tabelas se- 
rá lido na fita e o processo se repetirá. 


Eis e 


De início, é preciso definir o forma- 
to dos blocos gráficos utilizados no jo- 
go — nuvens, gaivotas, pedras que ro- 
lam, buracos, cobras venenosas, gulo- 








seimas para um piquenique, e o próprio 
Willie. No MSX é mais fácil movimen- 
tar figuras usando sprites para imprimir 
suavidade à animação. 

As figuras definidas pelo programa 
a seguir têm a estrutura de sprites. Nem 
todas, porém, serão usadas como tal. O 
MSX só permite a exibição simultânea 
de 32 sprites; destes, apenas quatro, no 
máximo, podem ocupar a mesma linha 
horizontal. Mas isso poderia fazer o po- 
bre Willie desaparecer da tela. (Imagi- 
ne se houvesse quatro serpentes na mes- 
ma linha horizontal!) 


10 CLEAR 200,-15200 

20 FOR 1=0 TO 639 

30 READ AS:POKE -15200+T,VAL("E 

Bº+AS) 

40 NEXT 

9000 DATA 00011000 

9010 DATA 00111100 

9020 DATA 00111100 

9030 DATA 00011000 

9040 DATA 00111100 

9050 DATA 00111100 

9060 DATA 00111100 

9070 DATA 00111100 

9080 DATA 00111100 

9090 DATA 00111100 

9100 DATA 00011000 

9110 DATA 00011000 

9120 DATA 00011000 

9130 DATA 00011000 

9140 DATA 00011000 

9150 DATA 00011110 

9160 DATA 0,0,0,0,0,0,0,0 

9170 DATA 0,0,0,0,0,0,0,0 

9180 DATA 00000001 

9190 DATA 00000011 

9200 DATA 00000011 

9210 DATA 00000001 

9220 DATA 00000000 

9230 DATA 00000001 

9240 DATA 00000001 

9250 DATA 00000001 

9260 DATA 00001110 

9270 DATA 00000000 

9280 DATA 00000001 

9290 DATA 00000010 

9300 DATA 00000100 

9310 DATA 00001000 

9320 DATA 00000100 

9330 DATA 00000000 

9340 DATA 10000000 

9350 DATA 11000000 

9360 DATA 11000000 

9370 DATA 10000000 

9380 DATA 00000000 

9390 DATA 00000000 

9400 DATA 00000000 

9410. DATA 11100000 

9420 DATA 00000000 

9430 DATA 00000000 

9440 DATA 10000000 

9450 DATA 01000000 

9460 DATA 0010000 

9470 DATA 00100000 

9480 DATA 00110000 

9490 DATA 00000000 

9500 DATA 0,0,0,0,0,0, 
O 


O O 
9510 DATA 0,0,0,0,0,0,0,0 


9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 


9770 E 
9780 I 


9790 
9800 
9810 
9820 
9830 
9840 
9850 
9860 
9870 


9880 


9890 
9900 
9910 
9920 
9930 


9940 . 


9950 


9960 . 


9970 
9980 
9990 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


10000 DATA 


10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00011000 
00111100 
00111100 
00011000 
00000000 
00010000 
00010000 
00011110 
11100000 
00000000 
00001100 
00100100 
01000010 
10000010 
01000011 
00000000 


0,0,0,0,0,0,0,0 


00011100 
00111110 
01111111 
11111111 
11111111 
11111110 
11111100 
00111000 
0,0,0,0, 


0,0,0, 
0,0,0,0,0,0,0, 
0,0,0, 


0,0,0,0, 
00000011 
00000111 
00001111 
00001111 
00001111 
00000111 
00000011 
00000001 


0,0,0,0,0,0,0,0 


10000000 
11000000 
11100000 
11110000 
11110000 
11110000 
11100000 
11000000 
00000000 
00000000 
00000111 
00011000 
00100000 
01000000 
01000000 
10000000 
10000000 
01000000 
01111100 
00000010 
00000010 
00000001 
00000000 
00000000 
00000000 
00000000 
00011111 
10100000 
11000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000100 


10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 


10660 | 


10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 


10780 | 


10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 


10870 | 


10880 
10890 


10900 | 


10910 
10920 
10930 
10940 
10950 
10960 
10970 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00001010 
00010001 
11100000 
00000000 
00000000 
00000000 
10000000 
01000000 
01011100 
00100010 
00000010 
00000010 
00000010 
00000100 
00001000 
00000100 
00000100 
00000100 
11111000 
00000000 
0,0,0,0,0,0, 


0,0,0,0, 010.0 0 


00000000 
00000000 
01111000 
10000110 
00000001 
00000001 
00000000 
00000000 


0,0,0,0,0,0,0,0 


00000000 
00000000 
00011110 
01100001 
10000000 
10000000 
00000000 
00000000 


0,0,0,0,0,0,0,0 


00000000 
00000000 
00000000 
00000000 
10000111 
01111001 
00000000 
00000000 


0,0,0,0,0,0,0,0 


00000000 
00000000 


00000000 


00000000 
11100001 
10011110 
00000000 
00000000 


0,0,0,0,0,0,0,0 


00100010 
00010100 
00001000 
00001000 
00001000 
00001000 
00001000 
00001000 
00011000 


| 00111100 


00110110 
01111110 
01111110 
00111100 
00011000 





IL | j | | 
| ' | | | 
o | | y | 


11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00001100 
00011000 
00011000 
00110000 
00110000 


0,0,0,0, 
01100000 
01100000 
11000110 
11000011 
01100110 
01101100 
00111000 
00011000 
0,0,0,0, 


0,0,0,0,0 


0,0,0,0, 

10000100 
11010110 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
0,0,0,0 


/0,0,0,0 
0,0,0,0,0,0,0,0 
10,0,0,0 


0,0,0,0 

00000000 
00000001 
00000011 
00000111 
00011111 
00111111 
01111111 
111111141 
0,0,0,0, 

0,0,0,0, 

0,0,0,0, 

00000000 
00000000 
11111111 
11111111 
00111100 
00111100 
11111111 
11111111 
0,0,0,0, 


0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0 


(,0,0,0, 

00000110 
00001000 
01110110 
11111111 
11111111 
11111111 
01111110 
00111100 
00011000 
0,0,0,0, 
0,0,0,0, 
00011000 
00011000 
00001100 
00001100 
00000110 
00000110 
00000011 
00000011 
00000110 
00000110 
00001100 


11710 DATA 0,0,0,0,0,0,0,0 
11720 DATA 0,0,0,0,0,0,0,0 
11730 DATA 0,0,0,0,0,0,0,0 
11740 DATA 00010000 


11750 DATA 00010000 
11760 DATA 00010000 
11770 DATA 00111000 
11780 DATA 00111000 
11790 DATA 00111000 
11800 DATA 00111000 
11810 DATA 00111000 
11820 DATA 0,0,0,0,0,0,0,0 
11830 DATA 0,0,0,0,0,0,0,0 
11840 DATA 0,0,0,0,0,0,0,0 
11850 DATA 00010000 
11860 DATA 00111000 
11870 DATA 01111100 
11880 DATA 00111000 
11890 DATA 00111000 
11900 DATA 00111000 
11910 DATA 00010000 
11920 DATA 00010000 
11930 DATA 0,0,0,0,0 
11940 DATA 0,0,0,0,0 
11950 DATA 0,0,0,0,0 


om) 
So 
ago 


11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00000000 
00000000 
00000000 
00100000 
01010001 
10001010 
00000100 
00000000 
0,0,0,0, 

0,0,0,0, 

0,0,0,0, 

00000000 
00000000 
00000000 
10000010 
01000101 
00101000 
00010000 
00000000 


12150 DATA 0,0,0,0,0,0,0,0 
12160 DATA 0,0,0,0,0,0,0,0 
12170 DATA 0,0,0,0,0,0,0,0 


Execute o programa e grave a tabela 
resultante com o comando: 
BSAVE 'CAS:AVAL' -15100,-14501 


AS PARTES E O TODO | 


Longos programas em código devem 
ser montados por partes, Bom para tes- 
tar as rotinas individualmente, esse mé- 
todo tem, contudo, a desvantagem de 
deixar para o leitor a tarefa de juntar os 
pedaços do programa. O fato de as ro- 
tinas isoladas serem executadas com su- 
cesso não garante o funcionamento do 
programa completo. 

Como no exemplo anterior, a maior 
dificuldade consiste em uma das partes 
ser apagada por outra durante o proces- 
so de montagem. Se você gravou mais 
bytes do que devia junto com um dos 
segmentos do programa, corre o risco 
de ver alguns desses bytes apagarem par- 


te de outro pedaço, adjacente na memó- 
ria. Assim, quando gravarmos os códi- 
gos de uma porção do jogo usando o 
monitor de INPUT, devemos informar 
o endereço inicial e o endereço final pa- 
ra determinar o número exato de bytes 
a serem transferidos para a fita. Se re- 
corrermos ao comando BSAVE do 
MSX, devemos usar a sintaxe: 

BSAVE 'CAS:NOME' 

seguida do endereço inicial, uma virgu- 
la e o endereço final da porção a ser 
gravada. 

Quando usamos o Assembler para 
montar os programas dos artigos, o en- 
dereço inicial é sempre igual à origem 
(ou seja, O número que vem após o fal- 
so mnemônico org). O próprio Assem- 
bler cuida de começar a rotina nesse en- 
dereço. Nos programas BASIC que 
criam tabelas de dados na memória a 
partir de linhas DATA e usando POKE, 
o endereço inicial da tabela pode ser en- 
contrado na própria listagem — valor 
inicial da variável de controle do laço 
FOR...NEXT responsável pela leitura e 
transferência dos dados para a memo- 
ria. 

Já o cálculo do número de bytes a 
gravar é mais difícil, pois o endereço fi- 
nal informado pelo Assembler nem sem- 
pre é o do final da rotina. 

Há quem prefira gravar alguns bytes 
a mais, por segurança; nesse caso, po- 
rém, corre-se o risco de apagar pedaços 
de outras rotinas no processo de mon- 
tagem do jogo completo. 

O modo mais seguro de juntar as par- 
tes do programa consiste em ler as roti- 
nas no gravador, preenchendo a memó- 
ria em ordem crescente. Porções com 
endereços iniciais menores devem ser re- 
cuperadas da fita primeiro, sendo segui- 
das sempre das rotinas que ocupam po- 
sições sucessivas. Isso fará os bytes gra- 
vados em excesso serem apagados pela 
próxima rotina (e não o contrário). As- 
sim, qualquer instrução ret, colocada no 
final de uma rotina apenas para permi- 
tir o seu funcionamento isolado, tam- 
bém será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando, o programa resul- 
tante deve ser gravado inteiro, com ou- 
tro nome. Seu endereço inicial será o da 
primeira rotina lida na fita e o final se- 
rá o endereço final da última rotina co- 
locada na memória. Qualquer problema 
pode exigir que as rotinas sejam reuni- 
das novamente. Não se esqueça de gra- 
var as listagens Assembly — os progra- 
mas-fonte — bem como os programas 
BASIC que criam as tabelas na memo- 
ria, pois você pode precisar repetir o 
processo de montagem. 








TEAR E E E RS 


Se houver qualquer tipo de problema 
com as tabelas de dados, podemos mon- 
tar as rotinas em código, na ordem ci- 
tada, e executar cada um dos programas 
em BASIC. Eles devem ser lidos no gra- 
vador, um a um, postos em execução e, 
em seguida, apagados pelo comando 
NEW. Depois disso, o próximo progra- 
ma criador de tabelas será lido na fita 
e O processo se repetirá. 


Adicione as próximas linhas ao pro- 
grama criador de tabelas que vem sen- 
do montado ao longo destes artigos: 


READ AS 

FOR A=1 TO LEN (AS) 

POKE AD,ASC(MIDS(AS,A,1)) 
AD=AD+1 

NEXT A 

| DATA Q4A!GA! AME! RE! AAA! 46 
TARA 

170 FOR A=1 TO 702 

180 READ AS:POKE AD,VAL("T&AH"+AS 
) 

190 AD=AD+1:NEXT A 

200 IF AD<>18238 THEN PRINT 
ROR” 

210 DATA 55,54,50,50,40,40,0,0, 
7E,5F,57,D7,F5S,FE,D5S,75,DD,77,5 
D,D5,7D,75,5D,77,F5,FD,57,75,DD 
(77 ,5D,D5,FD,5F,57,D7,5D,FF,DS, 
7F,75,77,FD,F7,D5,5D,75,77,55,D 
5,D5,5D,5D,D7,F5,/D,D5,5D,5D,D/ 
155,57, FF,7F,57,57,FD,FD 

220 REM sol 

230 DATA 55,75,D5,55,55,75,D5,5 
5,75,75,D5,D5,5D,5D,D5,D5,5D,5D 
:1D7,55,57,5D,D7,5D,D5,D5,5D,5D, 
75,D7,DD,75,7D,5D,75,D5,5D,75,5 
D,D/,57,75,5D,5D,F5,D5,5/,75,5D 
:D5,57,75,57,55,55,D7,E7,55,565, 
DD 

240 DATA 57,55,55,D5,77,55,55,D 
F,D5,D5,57,55,5D,D5,57,7F,F5,75 
,15D,85,5/7,75,5D,F5,57,58D,75,5F, 
SD, 97,0D/,55,75,758,457,95,85.27 a? 
4,D5,55,D/,75,D5,55,D7,75,75,57 
57 00D, 45,57 097 ,9D,55,55,97 4 9D, 
55 

250 REM numeros 

260 DATA 7D,D7,D7,D7,7/D,5D,/D,5 
D.5D,FF,7D,D7,5D,75,FF,FD,57,FD 
57, FD,5D, 7/D,DD,FF,5D,FF,D5,/D, 
572, ED,7Z7F,D5,FD,D?,7D,FF,57,5D,? 
5,75, 7D,D7,7D,D7,7D,7F.D/7,7F,57 
WA 

270 REM graficos 

280 DATA 5/7,5F,5E,57,5F,5F,5F,5 
F,D5,F5,F5,D5,F5,F5,F5,E5,5F,5F 
DA a DA DT DE a dE ES FI D5, DS, 
D5,D5,D5,FD,55,55,55,55,55,55,5 
DDD Ta DÊ DE, IA IDO ST 9 DP DS 
1F5,F5,D5,55,55,55,FD,55,55,655, 
55,595,55,55,55,55,55,55,55,55,5 
5,55,55,FD,55,57,5D,75,D5,75,55 
290 DATA 55,55,D5,75,5D,5D,5F,5 
1, 55,55,55,85,55,55 SSD Da O 
1 1956,558,57,58F,5F,57,55,55,55,55, 
D5,F5,F5,D5,55,57,57,57,FD,55,5 


"ER 


7 5D,55,95,595,0FD,55,95,D5,7/5,739 
,D5,75,55,55,55,55,55,5D,5D,5F, 
55,55,55,55,55,55,55,53,55,595,5 
DDD DD DD DD DD DD DE DE pad 
300 DATA 55,55,55,55,D5,F5,F5,D 
D1 95,95, DD) DD SD DD pI DD DD 
155,95,55,595,585,55,55,57,57,57, 
FD,55,57,5D,55,55,55,FD,55,55,D 
DD ,55 095.954,55 DD II ID DD E TD 
65,054 55, 554 5554554 2H DDS! Do 
55,55,55,55,55,5D,5D,5F,55,95,5 
Do SD DS DD De 

310 DATA 55:55,55,55,55,55,537,5 
F,7F,FF,FE,FE,7ZE,5F,F5S,FD,FE,EF 
(FF,ED,E5,D5,55,55,55,55,55,55, 
55,55,5F,7F,FF,FF,FE,/F,5F,57,D 
5,FS,FD,FF,FFE,FF,FD,F5,55,55,55 
195,95, 95,55,55,58D,57,588,95,95, 
55,55,55,5D,75,D5,D5,D5,D5,D5,D 
DD SED E, E DES DFD 
320 DATA FD,FD,FD,E5,D5,D5,57,5 
71 485,95,55,95,95,99,/ 05, D5,F5,ES5 
ED ZD DE SF DD DD DI ud DA DA 
SF,5F,7D,7D,F5,F5,D5,D5,55,55,7 
D,7D,E5,F5,/D,7D,5F,5F,55,55,/D 
(5F,7D,F5,D5,D5,55,55,AA,AA,56, 
56,AA,AA,55,55,AA,AA,95,95,AA,A 
A,55,55,7F,FE,FF,FE,7F,5F,81 
330 DATA 15,7D,FF,FE,FF,FD,F5,5 
TVA DT DE DE SF DESDE II ID DO 
1D5,D5,D5,D5,57,5F,7F,5F,5F,5F, 
57,57,55,D5,F5,D5,D5,D5,55,55,A 
A,AA,AA,A6,99,6A,AA,AA,AA,AA, AA 
(AA,A9,66,9A,AA,AA,AA,AA,6A,9A, 
A6,A9,AA,AA,AA,AA,A6,99,6A,AA,A 
A, 


Os sustenidos e pontos de exclama- 
ção na linha 160 definem a silhueta da 
montanha. Cada sustenido corresponde 
a um caractere representativo de uma 
parte plana e cada ponto de exclamação, 
a um caractere de declive. 

As linhas 210 a 330 contêm os bytes 
correspondentes aos padrões dos blocos 
gráficos utilizados — o sol, as pedras 
que rolam, as cobras venenosas € o pró- 
prio Willie. Pode parecer que há um ex- 
cesso de dados na listagem, mas, para 
dar suavidade ao processo de animação, 
as figuras móveis serão desenhadas em 
posições diferentes. 

Longos programas em código devem 
ser montados por partes. Isso é bom pa- 
ra testar as rotinas individualmente. Mas 
O sucesso na execução de rotinas isola- 
das não garante o funcionamento do 
programa completo. O principal perigo, 
neste como em outros casos, consiste em 
uma das partes apagar outra durante o 
processo de montagem. Assim, se você 
gravou mais bytes do que devia junto 
com um dos segmentos do programa, 
eles podem suprimir parte do outro pe- 
daço adjacente na memória. 

Quando gravarmos os códigos de 
uma porção do jogo usando o monitor 
de INPUT, devemos informar os ende- 
reços inicial e final, de modo a transfe- 


rir para a fita o número exato de bytes. 
Se usarmos o comando CSAVEM do 
TRS-Color, devemos recorrer à sintaxe: 


CSAVEM "NOME", 


seguida do endereço inicial, uma virgu- 
la e o endereço final da porção a gra- 
var. Quando usarmos o Assembler pa- 
ra montar os programas listados nos ar- 
tigos, o endereço inicial será igual à ori- 
gem (ou seja, o número que vem após 
o falso mnemônico ORG). O próprio 
Assembler cuidará de começar a rotina 
nesse endereço. Nos programas BASIC 
que criam tabelas de dados na memória 
a partir de linhas DATA e usando PO: 
KE, o endereço inicial da tabela pode ser 
encontrado na própria listagem — va- 
lor inicial da variável de controle do la- 
ço FOR... NEXT responsável pela leitu- 
ra e transferência dos dados para a 
memória. 

Mais difícil é a tarefa de calcular o 
número de bytes a serem gravados. E 
que o endereço final informado pelo As- 
sembler nem sempre é o do final da ro- 
tina. Muitas vezes, aquele endereço é 
apenas o da última instrução m.ontacia, 
o que em muitas das nossas listagens sig- 
nifica um rótulo seguido por um aste- 
risco, usado para cálculo de scitos e des- 
vios, não correspondendo am» final do 
programa. 

Procure não gravar bytes a mais pa- 
ra não apagar pedaços de outras rotinas 
no processo de montagem do jogo. A 
maneira mais segura de juntar as partes 
do programa consiste em ler as rotinas 
no gravador, preenchendo a memória 
em ordem crescente. Porções com ende- 
reços iniciais menores devem ser recu- 
peradas da fita em primeiro lugar, sen- 
do seguidas sempre das rotinas que ocu- 
pam posições sucessivas. Isso fará os 
bytes gravados em excesso serem apa- 
gados pela próxima rotina (e não o con- 
trário). Assim, qualquer instrução RTS, 
colocada no final de uma rotina para 
permitir o seu funcionamento isolado, 
também será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando adequadamente, 
chegou o momento de gravar, inteiro, 
o programa resultante, com um outro 
nome. Seu endereço inicial será o da pri- 
meira rotina lida na fita e o endereço fi- 
nal será o endereço final da última roti- 
na colocada na memória. Qualquer pro- 
blema pode exigir que as rotinas sejam 
agrupadas novamente. Não se esqueça 
de gravas as listagens Assembly — os 
programas-fonte —, assim como os pro- 
gramas BASIC que criam as tabelas na 
memória, pois você pode precisar repe- 
tir O processo de montagem. 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NIrEEENO PRÓXIMO NUÚUMERONHIEEEEHHI! 


APLICAÇÕES 
Calendários mensais e anuais. Registros de eventos. Veja como o 
computador pode ajudá-lo a cumprir os compromissos. 


PROGRAMAÇÃO DE JOGOS 
Faça um pouso suave e tranqúilo na superfície da lua. Além de habilidade, 
você vai precisar de muito sangue frio. 


CÓDIGO DE MÁQUINA 
Como usar uma tabela para definir o contorno da montanha. 
Deslocamento do cenário. Como colorir os espaços. 





